home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / tugi / user.tug < prev    next >
Text File  |  1991-10-19  |  5KB  |  294 lines
  1. TUGi_macro(v1.0)
  2.  
  3. sample_01()
  4. {
  5.  
  6.     /***************************************/
  7.     /**  すずけんさんの絵  **/
  8.     /****************************************/
  9.  
  10.     /* を～～い(^_^;)元気かえ??  濁音(兄) (^^;;; */
  11.     /* （ちょ）おや？とうとう兄弟と認めたのかや？(^^; */
  12.  
  13.     Screen(3);
  14.     cls(1);
  15.     paletteset();
  16.     wind_init();
  17.     wrtstr(
  18.         " "
  19.         "  すずけんさんの作品です",
  20.         "  "
  21.         " "
  22.         "  この画像データを表示しますか？",
  23.         " "
  24.     );
  25.     wind_close();
  26.  
  27.     Question(
  28.         Graph_View(
  29.             Q:\DATA\SUZUKEN\MONO.TIF
  30.             Q:\DATA\SUZUKEN\SUZU00.TIF
  31.         );
  32.     );
  33.  
  34.  
  35.  
  36.     /***************************************/
  37.     /**  あやちゃん                       **/
  38.     /***************************************/
  39.  
  40.     Screen(3);
  41.     cls(1);
  42.     paletteset();
  43.     wind_init();
  44.     wrtstr(
  45.         " "
  46.         "  絵画喫茶ウェートレス、あやさんの作品です",
  47.         "  "
  48.         " "
  49.         "    この画像データを表示しますか？",
  50.         " "
  51.     );
  52.     wind_close();
  53.  
  54.     Question(
  55.         Graph_View(
  56.             Q:\DATA\AYAGRAPH\TRAU_16.TIF
  57.             Q:\DATA\AYAGRAPH\HANA.TIF
  58.             Q:\DATA\AYAGRAPH\HANA2.TIF
  59.         );
  60.     );
  61.  
  62.  
  63.     /**********************/
  64.     /**  オラタンさん     **/
  65.     /**********************/
  66.  
  67.     Screen(3);
  68.     cls(1);
  69.     paletteset();
  70.     wind_init();
  71.     wrtstr(
  72.         " "
  73.         "     ★彡オラタンさんのデータです。",
  74.         "  "
  75.         "     この画像データを表示しますか？",
  76.         " "
  77.     );
  78.     wind_close();
  79.  
  80.     Question(
  81.         Graph_View(
  82.             Q:\DATA\ORA_TIF\ORA_2.TIF
  83.             Q:\DATA\ORA_TIF\ORA_3.TIF
  84.             Q:\DATA\ORA_TIF\ORA_4.TIF
  85.             Q:\DATA\ORA_TIF\ORA_7.TIF
  86.             Q:\DATA\ORA_TIF\ORA_8.TIF
  87.             Q:\DATA\ORA_TIF\ORA_5.TIF
  88.         );
  89.     );
  90.  
  91.  
  92.     /****************/
  93.     /**  ぴ～さん  **/
  94.     /****************/
  95.  
  96.     Screen(3);
  97.     cls(1);
  98.     paletteset();
  99.     wind_init();
  100.     wrtstr(
  101.         " "
  102.         "  ぴーさんの作品です",
  103.         " "
  104.         "  この画像データを表示しますか？",
  105.         " "
  106.     );
  107.     wind_close();
  108.  
  109.     Question(
  110.         Graph_View(
  111.             Q:\DATA\PI_NO_E\PI9_8.TIF
  112.             Q:\DATA\PI_NO_E\PI9_9.TIF
  113.             Q:\DATA\PI_NO_E\PI0_0.TIF
  114.             Q:\DATA\PI_NO_E\PI1_1.TIF
  115.             Q:\DATA\PI_NO_E\PI2_1.TIF
  116.             Q:\DATA\PI_NO_E\PI2_2.TIF
  117.             Q:\DATA\PI_NO_E\PI2_3.TIF
  118.             Q:\DATA\PI_NO_E\PI3_1.TIF
  119.             Q:\DATA\PI_NO_E\PI4_1.TIF
  120.             Q:\DATA\PI_NO_E\PI4_2.TIF
  121.             Q:\DATA\PI_NO_E\PI4_3.TIF
  122.             Q:\DATA\PI_NO_E\PI5_1.TIF
  123.             Q:\DATA\PI_NO_E\PI6_1.TIF
  124.             Q:\DATA\PI_NO_E\PI6_2.TIF
  125.             Q:\DATA\PI_NO_E\PI7_1.TIF
  126.             Q:\DATA\PI_NO_E\PI7_2.TIF
  127.             Q:\DATA\PI_NO_E\PI7_3.TIF
  128.             Q:\DATA\PI_NO_E\PI8_1.TIF
  129.             Q:\DATA\PI_NO_E\PI8_2.TIF
  130.             Q:\DATA\PI_NO_E\PI9_1.TIF
  131.             Q:\DATA\PI_NO_E\PI9_2.TIF
  132.             Q:\DATA\PI_NO_E\PI9_3.TIF
  133.             Q:\DATA\PI_NO_E\PI9_4.TIF
  134.             Q:\DATA\PI_NO_E\PI9_5.TIF
  135.             Q:\DATA\PI_NO_E\PI9_6.TIF
  136.             Q:\DATA\PI_NO_E\PI9_7.TIF
  137.         );
  138.     );
  139.  
  140.     /***************************************/
  141.     /**  new towns  **/
  142.     /****************************************/
  143.  
  144.     Screen(3);
  145.     cls(1);
  146.     paletteset();
  147.     wind_init();
  148.     wrtstr(
  149.         " "
  150.         "  てーるさんデザインの、新型ＴＯＷＮＳです。",
  151.         "  "
  152.         "  この画像データを表示しますか？",
  153.         " "
  154.     );
  155.     wind_close();
  156.  
  157.     Question(
  158.         Graph_View(
  159.             Q:\DATA\NEWTOWNS\TOWNSMX2.TK4
  160.         );
  161.     );
  162.  
  163.  
  164.     /***************************************/
  165.     /**               giru                **/
  166.     /***************************************/
  167.  
  168.     Screen(3);
  169.     cls(1);
  170.     paletteset();
  171.     wind_init();
  172.     wrtstr(
  173.         " "
  174.         "  ギルドラムさんの作品です。",
  175.         " "
  176.         "  この画像データを表示しますか？",
  177.         " "
  178.     );
  179.     wind_close();
  180.  
  181.     Question(
  182.         Graph_View(
  183.             Q:\DATA\GIRU\MERMAID.TIF
  184.             Q:\DATA\GIRU\MERMAID2.TIF
  185.             Q:\DATA\GIRU\FLOWER.TIF
  186.         );
  187.     );
  188.  
  189.     /***************************************/
  190.     /**  TAKI  **/
  191.     /****************************************/
  192.  
  193.     Screen(3);
  194.     cls(1);
  195.     paletteset();
  196.     wind_init();
  197.     wrtstr(
  198.         " "
  199.         "  たきさんの作品です<^_^>",
  200.         " "
  201.         "  この画像データを表示しますか？",
  202.         " "
  203.     );
  204.     wind_close();
  205.  
  206.     Question(
  207.         Graph_View(
  208.             Q:\DATA\TAKI_C_1\DODO.TIF
  209.             Q:\DATA\TAKI_C_1\SUMMER.TIF
  210.             Q:\DATA\TAKI_C_1\KENKEN.TIF
  211.         );
  212.     );
  213.  
  214.  
  215.     /***************************************/
  216.     /**  CHO?麗子ちゃんかな？(^^;  **/
  217.     /****************************************/
  218.  
  219.     /* 麗子っちゃぁぁぁぁぁぁ～ん！♪(^^;(^^;(^^; */
  220.  
  221.     Screen(3);
  222.     cls(1);
  223.     paletteset();
  224.     wind_init();
  225.     wrtstr(
  226.         " "
  227.         "  Ｘ－ＲＡＹさんの作品です",
  228.         " "
  229.         "  この画像データを表示しますか？",
  230.         " "
  231.     );
  232.     wind_close();
  233.  
  234.     Question(
  235.         Graph_View(
  236.             Q:\DATA\CHO\CHO.TIF
  237.             Q:\DATA\SMOKE\SMOKE.P25
  238.             Q:\DATA\T_MAN\T_MAN.P25
  239.             Q:\DATA\T_MANC\T_MANC.P25
  240.         );
  241.     );
  242.  
  243.     /***************************************/
  244.     /**          たくまさんですね              **/
  245.     /***************************************/
  246.  
  247.     Screen(3);
  248.     cls(1);
  249.     paletteset();
  250.     wind_init();
  251.     wrtstr(
  252.         " "
  253.         "  たくまさんの作品です",
  254.         " "
  255.         "  この画像データを表示しますか？",
  256.         " "
  257.     );
  258.     wind_close();
  259.  
  260.     Question(
  261.         Graph_View(
  262.             Q:\DATA\TAKUMA\HYPER.TIF
  263.             Q:\DATA\TAKUMA\CD_ROM.TIF
  264.             Q:\DATA\TAKUMA\DARK_J.TIF
  265.             Q:\DATA\TAKUMA\STAND.TIF
  266.             Q:\DATA\TAKUMA\FRACTAL.TIF
  267.             Q:\DATA\TAKUMA\MUSIC.TIF
  268.             Q:\DATA\TAKUMA\MUSIC_DX.TIF
  269.             Q:\DATA\TAKUMA\BALL.TIF
  270.         );
  271.     );
  272.  
  273.     /* もっかい画面を初期化する訳ぢゃ(^_^;) */
  274.  
  275.     /****************/
  276.     /**  お終いっ  **/
  277.     /****************/
  278.  
  279.     Screen(3);
  280.     cls(1);
  281.     paletteset();
  282.     wind_init();
  283.     wrtstr(
  284.         " ",
  285.         " ",
  286.         "   他のデータも見てみますか？"
  287.     );
  288.     wind_close();
  289.     Question(
  290.         MAIN2SB2.TUG
  291.     );
  292.     END.TUG
  293. }
  294.